home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / mail / 1st_101b.zip / 50-REPLY.SCR < prev    next >
Text File  |  1992-09-28  |  1KB  |  62 lines
  1. '       ┌───────────────────────────────┐
  2. '       │ 1stReader reply script        │
  3. '       │ For Maximus                   │
  4. '       │ Written by Scott Baker        │
  5. '       │ September 27, 1992            │
  6. '       └───────────────────────────────┘
  7.  
  8. CAPTURE ON
  9. TIMEOUT 30
  10.  
  11. LOOKFOR "Escape" ""
  12. LOOKFOR "ENTER to continue" "^M"
  13. LOOKFOR "able protocols:" "Z^M"
  14.  
  15. LOCKLINE 20 30
  16. COMMENT "@DATE@ @TIME@  Connected with @BBSNAME@"
  17. COMMENT "@DATE@ @TIME@  Opened capture file @BBSID@.CAP"
  18. COMMENT "@DATE@ @TIME@  Logging in to system"
  19.  
  20. WAITFOR "name:"
  21. TRANSMIT "@USER@^M"
  22. WAITFOR "[Y,n]?"
  23. TRANSMIT "Y^M"
  24. WAITFOR "Password:"
  25. TRANSMIT "@PASSWORD@^M"
  26.  
  27. LOOKFOR "Escape" ""
  28. LOOKFOR "[Y,n]?" "N^M"
  29. LOOKFOR "(Y,n)" "N^M"
  30.  
  31. WAITFOR "Select:"
  32.  
  33. COMMENT "@DATE@ @TIME@  Selecting offline mail system"
  34. TRANSMIT "O^M"
  35.  
  36. LOOKFOR "[Y,n]?" ""
  37. LOOKFOR "(Y,n)" ""
  38.  
  39. :REPLIES
  40. IF NOT REPLIES GOTO EXIT
  41. COMMENT "@DATE@ @TIME@  Uploading replies"
  42. WAITFOR "Select:"
  43. TRANSMIT "U^M"
  44. WAITFOR "cancel." 10
  45. UPLOAD @REPDIR@@BBSID@.REP
  46. WAITFOR "Tossing|Error"
  47. IF FOUND=1 GOTO GOODUPLD
  48. GOTO EXIT
  49.  
  50. :GOODUPLD
  51. COMMENT "@DATE@ @TIME@  Deleting @BBSID@.REP"
  52. KILL @REPDIR@@BBSID@.REP
  53. COUNT REP
  54.  
  55. :EXIT
  56. WAITFOR "Select:" 10
  57. COMMENT "@DATE@ @TIME@  Waiting for disconnect"
  58. TRANSMIT "G;Y;N^M"
  59. PAUSE 10
  60.  
  61. CAPTURE OFF
  62.